100 CLR:DIMTS$(5):DIMB1(5):DIMB2(5):DIMF(5)
101 TS$(1)="17 02":B1(1)=194:B2(1)=15:F(1)=1
102 TS$(2)="17 17":B1(2)=247:B2(2)=12:F(2)=2
103 TS$(3)="07 05":B1(3)=96:B2(3)=14:F(3)=2
104 TS$(4)="17 17":B1(4)=139:B2(4)=15:F(4)=3
105 TS$(5)="07 05":B1(5)=232:B2(5)=12:F(5)=3
110 PRINT" UNLIMITED LIVES ON[146] OR OF[146]F : ";
120 GETA$:IFA$<>"N"ANDA$<>"F"THEN120
130 TR=(A$="N"):PRINTA$
190 FORI=1TO5
200 IFF<>F(I)THENGOSUB280
210 OPEN2,8,15:OPEN1,8,2,"#"
220 PRINT#2,"U1 2 0 "TS$(I)
230 PRINT#2,"B-P 2 187"
240 IFTRTHENPRINT#1,CHR$(249)CHR$(76)CHR$(138)CHR$(B1(I))CHR$(B2(I));
250 IFNOTTRTHENPRINT#1,CHR$(186)CHR$(3)CHR$(237)CHR$(10)CHR$(148);
260 PRINT#2,"U2 2 0 "TS$(I)
270 F=F(I):CLOSE2:CLOSE1:NEXT:END
280 PRINT"INSERT DISK - SIDE"F(I)CHR$(13)"PRESS ANY KEY !"
290 POKE198,0:WAIT198,1:POKE198,0:RETURN